subroutine terminal_msg1(str1)
  implicit none
  character :: str1*(*)

900 format(a)

  print 900,trim(adjustl(str1))

  return

end subroutine terminal_msg1
